-- card: 12837 from stack: in.0
-- bmap block id: 5103
-- flags: 0000
-- background id: 15491
-- name: Introduction to
----- HyperTalk script -----
on goPrev
  global theFrame,whatSpace
  set cursor to none
  subtract 1 from theFrame
  if theFrame = 3 then
    go prev
    go next
  else if theFrame = 7 then
    lock screen
    put "¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡" into whatSpace
    put "¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡å" & return & "¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡∫" into cd fld "ManFld"
    put empty into cd fld "HFld"
    hide btn "HMask"
    put empty into cd fld "HFld2"
    put theFrame - 1 into n
    hide cd fld ("text" & theFrame)
    show cd fld ("text" & n)
  else
    lock screen
    put theFrame - 1 into n
    hide cd fld ("text" & theFrame)
    show cd fld ("text" & n)
  end if
  unlock screen with wipe left
end goPrev





-- Hidden cd fld "whatChar" holds the order of characters
--- for font animation of man walking
-- Loc of cd fld "manFld" (the fld in which animation occurs): 147,146
-- Rect of cd fld "manFld": 112,65,406,227
-- Hidden btn "HMask" hides "H" during animation

on openCard
  resetElmo
  walkIn
end openCard


on walkIn
  global WalkDelay, whatSpace

  --    this where the Elmo walks in
  set the cursor to none
  put "¡" into whatSpace
  repeat for 3
    repeat with j = 1 to 4
      put whatSpace & (item 1 of line j of cd fld "whatChar") & return & whatSpace & (item 2 of line j of cd fld "whatChar") into cd fld "manFld"
      if j = 2 then put "¡¡¡¡¡" after whatSpace
      wait walkDelay
    end repeat
    put "¡" after whatSpace
    repeat with j = 5 to 8
      put whatSpace & (item 1 of line j of cd fld "whatChar") & return & whatSpace & (item 2 of line j of cd fld "whatChar") into cd fld "manFld"
      if j = 6 then put "¡¡¡¡¡" after whatSpace
      wait walkDelay
    end repeat
    put "¡" after whatSpace
  end repeat

  -- Elmo says hello
  put whatSpace & "y" & return & whatSpace & "z" into cd fld "manFld"
  wait 10
  put whatSpace & "å" & return & whatSpace & "∫" into cd fld "manFld"
  wait 20
  repeat for 4
    delete last char of whatSpace
  end repeat
  put whatSpace & "©˙" & return & whatSpace & "∆˚" into cd fld "manFld"
  show cd fld "text1"
  wait 60

  -- Elmo tells us what's up
  repeat for 4
    put "¡" after whatSpace
  end repeat
  hide cd fld "text1"
  put whatSpace & "å" & return & whatSpace & "∫" into cd fld "manFld"
  wait 40
  show cd fld "text2"
  setArrows false, true

end walkIn

-- This is the rest of Elmo's conversation
-- Frames 3 to 7 are initiated by mouse clicks
on ElmoTalks
  global theFrame, whatSpace
  lock screen
  set cursor to none
  setArrows true, true
  if theFrame ≤ 5 then
    put theFrame - 1 into n
    hide cd fld ("text" & n)
    show cd fld ("text" & theFrame)
  else
    if theFrame = 6 then
      hide cd fld "text5"
      show cd fld "text6"
    else
      if theFrame = 7 then
        unlock screen with dissolve
        hide cd fld "text6"
        wait 30
        moveH
        --   repeat for 7
        --     delete last char of whatSpace
        --   end repeat
        put whatSpace into tempSpace
        repeat for 7
          delete last char of tempSpace
        end repeat
        put tempSpace & "çƒ" & return & tempSpace & "∂Ω" into cd fld "manFld"
        wait 30
        show cd fld "text7"
      else
        -- start moving through the following cards
        hide cd fld "text7"
        resetElmo
        setArrows true, true
        go to cd "H"
        unlock screen with dissolve
        wait 20
        visual dissolve
        go to cd "H table"
        showText
      end if
    end if
  end if
  add 1 to theFrame
  setArrows true, true
  unlock screen with wipe right
end ElmoTalks


-- This handler resets the cd
on resetElmo
  global theFrame
  set cursor to none
  put 3 into theFrame
  hide btn "HMask"
  setArrows false, false
  put empty into cd fld "HFld"
  put empty into cd fld "HFld2"
  put empty into cd fld "manFld"
  repeat with n = 1 to 7
    hide cd fld ("text" & n)
  end repeat
end resetElmo



-- This handler moves the "H" so it ends up next to Elmo
on moveH
  set cursor to none
  put "A" into cd fld "HFld"
  show btn "HMask"
  put empty into cd fld "HFld2"

  repeat for 3
    set textStyle of cd fld "HFld" to bold
    set textStyle of cd fld "HFld" to outline
  end repeat

  wait 30
  put "B" into cd fld "HFld"
  wait 30
  put "A" into cd fld "HFld"
  wait 50
  put "B" into cd fld "HFld"
  wait 40

  put "A" into cd fld "HFld"
  wait 15
  put "B" into cd fld "HFld"
  put "C" into cd fld "HFld"
  wait 30
  put "D" into cd fld "HFld"
  wait 40

  put "A" into cd fld "HFld"
  wait 30
  put "D" into cd fld "HFld"
  wait 20
  put empty into cd fld "HFld"
  put "E" into cd fld "HFld2"
  wait 10
  put "A" into cd fld "HFld2"
end moveH

on closeCard
  resetElmo
end closeCard



-- part 15 (button)
-- low flags: 80
-- high flags: 4001
-- rect: left=4 top=221 right=263 bottom=43
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hmask


-- part 1 (field)
-- low flags: 01
-- high flags: 2000
-- rect: left=-112 top=65 right=227 bottom=406
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 214
-- text size: 80
-- style flags: 0
-- line height: 80
-- part name: manFld


-- part 2 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=223 top=150 right=228 bottom=286
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 208
-- text size: 75
-- style flags: 2048
-- line height: 78
-- part name: HFld2


-- part 3 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=3 top=206 right=275 bottom=86
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 208
-- text size: 75
-- style flags: 2048
-- line height: 78
-- part name: HFld


-- part 5 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=261 top=97 right=116 bottom=310
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 174
-- text size: 14
-- style flags: 0
-- line height: 16
-- part name: text1


-- part 6 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=118 top=67 right=213 bottom=237
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 174
-- text size: 14
-- style flags: 0
-- line height: 16
-- part name: text2


-- part 7 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=118 top=66 right=224 bottom=283
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 174
-- text size: 14
-- style flags: 0
-- line height: 16
-- part name: text3


-- part 8 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=118 top=67 right=214 bottom=263
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 174
-- text size: 14
-- style flags: 0
-- line height: 16
-- part name: text4


-- part 9 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=118 top=65 right=213 bottom=254
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 174
-- text size: 14
-- style flags: 0
-- line height: 16
-- part name: text5


-- part 10 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=118 top=69 right=218 bottom=259
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 174
-- text size: 14
-- style flags: 0
-- line height: 16
-- part name: text6


-- part 11 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=350 top=81 right=219 bottom=444
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 174
-- text size: 14
-- style flags: 0
-- line height: 16
-- part name: text7


-- part 14 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=445 top=63 right=264 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: whatChar


-- part contents for card part 5
----- text -----
Hello.

-- part contents for card part 6
----- text -----
I’m here to introduce you to HyperCard 2.0 and the world of Hypermedia.

Click the right arrow to learn more.

-- part contents for card part 7
----- text -----
Hypermedia is all about using computers & software—and the text, graphics, animations, and sound that they can 
produce—to structure 
& present information.

(Click the right arrow).

-- part contents for card part 8
----- text -----
Because Hypermedia take advantage of what computers can do, they allow you 
to structure or move through information based on your curiosity...instead of in a linear path.

-- part contents for card part 9
----- text -----
This is important because people learn in all different kinds of ways—but mostly through making personal associations between different bits of information.

-- part contents for card part 10
----- text -----
Let me give you a personal example of associative thinking:  the letter “H,” like the one that starts the word 
“HyperCard” below, reminds me of something....

-- part contents for card part 11
----- text -----
The letter “H”always makes me think of the end of a table...
(Click the right arrow).


-- part contents for card part 14
----- text -----
c,d
ef,gh
i,j
k,l
o,p
qr,st
u,v
w,x
y,z
o,p
å,∫
çƒ,∂Ω
©˙,∆˚